function [i]=output_data(bank_u_t,bank_delta_u_t,bank_u_p)
global c a_t b p e t n_t n_p x_t y_t ar nth0 pwr;

i=0;                                                                                
save  solution_t bank_u_t;
save  delta_solution_t bank_delta_u_t;
save  solution_p bank_u_p;
i=1;
